home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00065_Mixing Glass mask sprite.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  754 b   |  37 lines
  1. property pSpr, pMaskMember, pMaskedMember, pMaskStart, pMaskEnd, pLocH
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pMaskedMember = pSpr.member
  6.   pMaskMember = nextMember(pSpr.member)
  7.   pLocH = pSpr.locH
  8.   pMaskStart = pSpr.locV - pSpr.rect.bottom
  9.   pMaskEnd = pSpr.locV - pSpr.rect.top
  10.   mEmptyGlass(me)
  11. end
  12.  
  13. on mHideDrink me
  14.   pSpr.locH = 1000
  15. end
  16.  
  17. on mShowDrink me
  18.   pSpr.locH = pLocH
  19. end
  20.  
  21. on mRemoveDrink me
  22.   mHideDrink(me)
  23.   mEmptyGlass(me)
  24. end
  25.  
  26. on mEmptyGlass me
  27.   pMaskMember.regPoint = point(pMaskMember.regPoint.locH, pMaskStart)
  28. end
  29.  
  30. on mUpdateLiquidLevel me, masterSprite
  31.   mFillLiquor(me, VOID, masterSprite)
  32. end
  33.  
  34. on mFillLiquor me, liquidColor, masterSprite
  35.   return fillIt(pSpr, liquidColor, pMaskMember, pMaskEnd, masterSprite)
  36. end
  37.